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INTROCUCTION 


Gver the years» computers have developed a reputation for beirg 
inflexiples unyielding machines that do not process data untess it 
has teen entered tn avery precise manner and onty after very rigid 
rules have oveen meticulously foltowed. Data controt clerks and key- 
puncn operators had to de concerned with the length of each data 
item» taking care to insert leading zeroes and traating spaces soa 
that the next data item could be recognized by the system. These 
peoptes of courses were sudjected to tengthy training and could be 
considered specialists in their respective fields. 


The advent of data communicationss howeversr put more nonspecialists in 
close proximity to the computer. It was not feastble to subject bank 
tellers and department store clerks to the same type of training that 
was provided to data control clerks. It became obvious that a nan- 
machine interface was required in order to nake data entry more 
patatable to the average person. 


Systems analysts and programmers rose to the task» and “human 
engineering” quickly became the buzzword of the day. YTermtinal oper- 
ators were -treated to formatted disptays» free-form Inputs and an 
array of features designed to make their jobs coth efficient and 
nleasant. The prootem was solved» but not for tongs new terminal 
devaces were designede networks changed and expanded» and the data 
being presented to the computer became more and more volatite. AS a 
result» analysts and programmers were deluged with requests to con- 
stantly modify the man=machine interface. The original problem had 
to be repeatedty solved. 


it soon became clear that if a man-machtine interface were to be a 
viable entity» it must be free from any dependence upon terminal 
devices. Additionatly» it must be designed tin such away as to be 
transparent to devetopers of applicatitontoriented programs. I f 
possible,» it must atso be capable of adapting to changing require- 
ments wathout the necessity for reprogramming. It should atltow a 
user to take advantage of new terminals and features with littte or 
no ampact upon his oneration. It was with these requirements tn 
mind that the format function of GEMCOS was devetoped. 


The purpose of this document is to highlight formatting capabilities 
as implemented tin the Generalized Message Controt Systems» Advanced 
Verston (Style TO B1800 MCA and B1700 MCA). For detatted and complete 
syntax and semantics of formatting, refer to the B 1800/7B 1700 Gener= 
alized Message Control System (GEMCOS) User's Reference Manuat»s form 
1093499. 


SECTIGN Ll 


OVERVIEW OF FURMATTING 


Formatting defines how fields within a message are to be manip=- 
ulated (by GEMCOS) prior to their delivery to a program Cinput 
messages) or a terminal Coutput messages). A field of data is that 
portion of a message (a character or contiguous group of characters) 
comprising a logical entity» e.ge» social securtty numbers clock 
number» or gross pay. Fields in a record can be rearranged», 
deleted» expanded» compressed (via the addition or deletion of 
leading zeroes or trailing spaces)» or transtated (e.g.e» DOZ could 
become 12 or vice versa). Fixed information can be inserted between 
fields. Numeric fields can be checked to be sure they contain only 
numbers. Certain esoteric hardware features» such as highlighting» 
blinking» bianking»s and reverse video» can be utilized» as well as 
the more common onesse such as tab stops and forms feed. 


Formatting with GEMCOS can be rather simpte or quite complexe depending 
upon the problem to be solved. In 1ts most comptex forms however » 
GEMCCS formatting remains transparent to the application programmer and 
adaptive to the requirements of the terminal operator. A prosrammer 
can define data fields to be processed with no knowledge of the device 
or devices which wail be sending and receiving that data. Once the 
devices have been identified» the format of the data as 1t appears on 
those devices can be decided upon according to the preferences of the 
people who use those devices. In most casesse the programmer need do 
nothing to the application software. 


A GEMCCS message format provides the man-machine tnterfaces maniputa- 
ting the data such that it 1s compatibie with the requirements of the 
terminal and the program. <A message fornat can be prepared for input 
and output messagess in some cases» a format may be used on input and 
output. 


The person preparing the message formats must have the desired 

record layouts avaitable for each type of message. The first tayout 
should describe the message as it appears to the application program. 
Subsequent tayouts should descrtbe the message as it appears at 

the terminal devices. The format writer must also be familiar with 
terminal device characteristics» such as buffer sizes screen sizer 
and control codes necessary to perform spoecial functions. (Refer to 
the 8 1800/8 1700 Series GEMCOS User'ts Reference Manual for a 
discussion of device classes.) 


The format applied to a message depends on two things. First cn the 
transaction tnvotved» since different transactions are comprised of 
different fields in different orders and secondly it depends op the 
station involved since the same message sent to different stat:ons may 
require different controt codes» buffer size» screen size etc. There 
fore GEMCOS provides a means of defining formats as well as atliowing 
the user to specify which formats are to be apptted to which station/ 
transaction combinations. 


GEMCCS formatting accommodates a wide range of applications. In many 
cases» howevers the formatter need be familiar with only the simple 
procedures described in sectton 2. More advanced formatting techniques 
are discussed in section 3. 


SECTION 2 


BASIC GEMCOS FORMATTING 


GENERAL. 
A GEMCOS message format %s described as follows: 


FORMAT <format name> (C<format description>). 


The <format name> 1s a untque name for the <format description>. The 
{irst character must be a tetter» but the remainder may be numbers or 
letters in any combination. Spaces may not be used within the name. 


Tne fottowing four specifications» part of the <format description>» 
are those most frequently utitized tn GEMCOS formatting: 


ae Defining field types. 

be Adding data to a message. 

C% Ignoring data or inserting blanks tin a message. 
d.- Rearranging data within a message. 


ALt items specified within the parentheses detimiting the <format 
description> are separated by commas. 


DEFINING FIELD TYPES. 

It is necessary to define the type of each fietd in the record when 
formatting an input or output message. There are two primary kinds 

of data fields in a format descrintion Calthough variations of each 
exast). Atphanumeric (alpha) fields may contain any combination of 
characters; numeric (Cinteger) fields may contain only numbers» or 
integers. Aloha fields are identified by the fetter Ae and integer 
fields are identified by the tetter I. All integer fields are edited» 


as subsequently described. 


The tength of the fietd immediately follows the letter designation. 
Thus a i0e*character alpha fietd would be described as A100» white a 
is“digit integer field woutd be described as [15- A message consisting 
of a SO*character atpha field followed by a 67digit tnteger fietd would 
be described: 


FORMAT F1 CA5O»r 16). 


Fields may be descrived so as to divide a group of characters tnto 
logicat groups. For examples 1234567899012035 may be described as 
A1l5 or 115 or may be subdivided as [9s !16 or as A%»e I6. 


A shorthand notation may be emptoyed when consecutive identical 

fietds are specitied. This notatton is catlted a repeat part. For 
example, three consecutive [6 fields may be described as 316. When 

the LEVEL OF consecutive groups of identical fields are to be repeated» 
an acditional parentheses is employed. For example» three consecutive 
A3» 16 fietds may ve descrided as 3(A3» 16). 


Any integer field definition tnvokes editing. Editing of the A50>» 

Io fietd works as follows: On tnput Cfrom terminat to system)» the 
first 50 characters are moved from the raw message to the formatted 
message. The next six characters are then examined. If leading or 
trailing blanks are present» the field is right-justified and Leading 
zeros are inserted. The field ts then added to the formatted message. 
If tne field is not entirely numerics» a flag ts set to inform the 
program that a field faried the edit test. On outputs the first 50 
characters are moved from the raw message to the formatted message. 
The next six characters are checked for numeric content» then moved 
intact to the formatted messagee If the data is incorrects the control 
station is notified» but the message is delivered to the station in 
either event. If no editing is desired» the field may be defined as 
A56 instead of A50O» I[6. 


ADDING DATA. 

Unce fieids within a record have been defineds the next step is to 
format those fieids so they can be easily read by the terminal oper- 
ator. One method 1s the insertion of editing strings. Editing strings 
are nothing more than simple strings inserted into the format descrip- 
tion wherever they are to appear tn the output message. Editing 
strangs are also used to create blank screen formats for operator 
input. 


Editing strings are dectared by using quotation marks. For exampler 
if a 10*character fietd were to ve identifiec as LAST NAHE and made 
accessible to the operators the following phrases could be used: 


"1 AST NAME C5 ALO» “J ™. 


Hexadecimal strings can be used to define characters for which no 
graphics are available. Hex strings are tdentified by ptactng a 

4 in front of the string. For examples» the OCl1l character 1s expressed 
as 4"11". 


Refer to figure 2-1 for a more comprehensive exampte of editing 
strings. When the GEMCOS output message format ts applied to the 
message from the nrogramse the screen message shown results. The 
same message format yields the blank screen shown tn response to a 
forms request from the terminal. 


OUTPUT MESSAGE FORMAT 


FORMAT FMTOUT (4”0C”, % FORMS FEED 
“LAST NAME [",A10,"]",4”OD", % CARRIAGE RETURN 
“FIRST NAME [”,A6,"]",4"0D", 
“USSAN [,A9,"1"",4"0D", 
“AMOUNT [,16,"]",4"12"). % PUT IN FORMS MODE 


MESSAGE FROM PROGRAM 


SMITH__JOHN_123456789004960 
A10 A6 AQ I6 


MESSAGE ON SCREEN 


LAST NAME [SMITH ] 
FIRST NAME [JOHN — ] 


SSAN [123456789] 
AMOUNT [004960] 


THE RESULT OF A FORMS REQUEST 


LAST NAME [ 
FIRST NAME [ 


SSAN [ 
AMOUNT [ 


Figure 271. Use of Editing Strings 
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Message fields may be manipulated so that data is ignored» blanks 
are inserteds or data is rearranged. Formatting with GEMCOS to 
manipulate fields in these ways is clearest once the user under- 
Stands how the GEMCOS formatter works. 


The GEMCCS formatter has twc areas for each message-e The first area 
contains the message as it looks to the terminal’ this is the external 
message. The second area» or common arear contains the message as the 
program sees its this is the internal message. 


Fach area has associated with it a pointers the external pointer and 
the internal pointers respectively. As a field is processeds both 
pointers are advanced as the firetd is moved from one area to the other. 
both potnters are tnitiatty set to 1s and after processing a fietd>, 
both advance to the posttion tmmedaately following the last character 
movede For examples if the first fietd ts AS» five characters are 
moved trom one area to the otherer and both pointers advance to position 
6. Figure 2-2 ittustrates how pointers work. 


MESSAGE AT TERMINAL MESSAGE IN COMMON AREA 
EXTERNAL INTERNAL 


ilies 


PT PC 


PT IS A POINTER WHICH CAN PC IS A POINTER WHICH CAN BE 
BE ADVANCED BY PROCESSING ADVANCED BY PROCESSING ANY 
ANY OF THE FOLLOWING OF THE FOLLOWING ITEMS: 
ITEMS: 


A A 
| | 


Figure 272. OQperation of Pointers 


The subsequent discussions iitustrate how to maniputate GEMCOS external 
and internat pointers to iqnore data» ansert blanks» and rearrange 
data. 


IGNORING DATA AND INSERTING BLANKS. 

It may sometimes be desirable to tgnore certain data received from 

a station or insert blanks into fietds going to a station. These blank 
are inserted by using an X ttem phrase» which advances the externat 
pointer onty. 


for examplee a message sent to a station contains both name and 

sociat security number for the operator's convenience. After attering 
some datas the operator transmits the message back to the program for 
updater but the program requires only the social security number. The 
name field can be edited out by means of an X item phrase: 


FORMAT F2 (X10» [9 6). 


When this format ts appttied to an input message which contains 


SMITH 12 3456789123456 


the following is presented to the program: 
12345678912 3456 


The X item ohrase may be used to tnsert blanks into an output message. 
Consider the fottlowing format: 


FORMAT F3 CAG» X4y 13). 

When this format is applied to an output message which contains: 
WIDGET123 

the following is displayed at the terminal: 


WIDGET (123 
REARRANGING DATA. 
Data may be rearranged by manipulating the internat pointer. Unlike 
the externat pointers which can only be advanced (Cregardiess of 
message direction)» the internal potnter can be moved in either 
direction. fo adjust the setting of the internal pointers a 
location specifier (3) ts used with an unsigned or signed integer. 


When an unsigned integer is usede the internal pointer is adjusted 
to the apsotlute position indicated by the tnteger. When a signed itnte- 
ger is used» the internat pointer is adjusted in the direction of the 
Sign relative to its present posation by the number of positions 
indicated by the integer. 
For examptes an tnput message of ABCI23DEF456GHI789 35 described as 
AZ» 210» [35 aoe ASeo AL3e 13% Al» ASe AtS» 13-2 The following sequence 
of events occurs: 

ae Initially» both pointers are set to le 


be The A3 causes ABC to be moved to the tnternat message 
area» and booth pointers are set to 4. 


ce @10 sets the tnternal pointer to 10. 
d. 13 causes 123 to be moved to positions 10 thru 12. 
Ce a4 sets the internal pointer to 4. 


tT. A3 moves OFF to positions 4 thru 6. 


273 


ge @13 sets the internal pointer to 13. 
he. 13 moves 456 to positions 13 thru 15. 
ie af sets the internal pointer to 7. 
j- A3 moves GHI to positions 7 thru 9. 
kK. at6 sets the internal pointer to 16. 
i. 13 moves 789 to positions 16 thru 18. 
The message delivered to the orogram is ABCDEFGHI123456789. 
Figure ¢-3 shows the usage cf location specifiers with unsigned inte- 


gers in combination with X items. Figure 2-4 illustrates pointer 
manipulation for strings» X items» and Location specifiers. 


INPUT MESSAGE FORMAT 
FORMAT FMTIN (A10,X6,@21,A9,@11,16) 


MESSAGE ON SCREEN 


LAST NAME [SMITH 
FIRST NAME [JOHN 


SSAN [123456789] 
AMOUNT [ 4960 ] 


MESSAGE AS TRANSMITTED 
SMITH__JOHN__123456789_4960_ 
Se EEE eee, ee 


A10 X6 AQ I6 


MESSAGE AFTER FORMATTING 
SMITH___004960___123456789 


— 
———se 


1 1 2 
1 1 


Figure 273. Use of X Item and Location 
Specifiers ir Formats 


MESSAGE AT TERMINAL MESSAGE IN COMMON AREA 
EXTERNAL INTERNAL 


FORMATTING ~_ 
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PT PC 
PT IS A POINTER WHICH PC IS A POINTER WHICH CAN BE 
CAN BE ADVANCED BY ADVANCED BY PROCESSING 
PROCESSING ANY OF THE ANY OF THE FOLLOWING 
FOLLOWING ITEMS: ITEMS: 

A A 

| 

x 
<STRING> (ON OUTPUT) <STRING> (ON INPUT) 


PC CAN BE POSITIONED BY 
THE LOCATION SPECIFIER: 


@ 


Figure 274. Pcinter Manipulation 


SUMMARY. 

Based upon what has been written thus far» tt 1s possible to prem 
pare GEMCOS message formats which handle an extensive variety of for- 
matting situations. In many cases it may not be necessary to utilize 
the GEMCOS advanced formatting options in section 3. The following 
summarizes what has been discussed: 


ae A format is declared as follows: 
FORMAT <format name> (<format description>). 


be Alphanumeric fields are declared as: 
A <length of field>. 


Ce Numeric Cinteger) fields are declared as: 
I <length of field>. 


de Items within the parentheses are separated by commas»s as: 
(A9» I16r» A7)- 


ee. Consecutive identical fields cr groups of fields can be 
described with a repeat part» as: 
3A50 or 3(A50» [6% A3). 


tf. External data» in the form of strings» can be inserted 
anywhere within a messagee as: 
Aide "XYZ%» [55 4™0C%» AZ20- 


ce Irput fields can be ignored by use of the X item chrasee as: 
A5» X20 e oa 


h. The orver in which fields appear can be rearranged via 
location specifiers» as: 
XidSe @307 X10r a@lb&» Al4» or X15» 330» AiO» a-45» 5. 


i. If no editing is requirecy numeric (I) fietds can be 
exoressed as alphanumeric (CA) fields. 


Figures 275 and 2-6 summarize the results of applying a GEMCOS mes~ 


sage format to an output message and an input message» respectively» 
for one transaction. 


MESSAGE FORMAT 


FORMAT FMTOUT (4”0C’’, % FORMS FEED 
“LAST NAME [“,A10,"]",4"0D", % CARRIAGE RETURN 
“FIRST NAME [",A6,"]"",4"0D”, 
“SSAN [’,A9,"] "4°OD", 
“AMOUNT [16,7] ",4"12"). % PUT IN FORMS MODE 


MESSAGE FROM PROGRAM 
SMITH___JOHN__123456789004960 
SS  aeeatiiee eil 

A10 A6 AY I6 


MESSAGE ON SCREEN 


LAST NAME [SMITH 
FIRST NAME [JOHN 


SSAN [123456789] 
AMOUNT [004960] 


THE RESULT OF A FORMS REQUEST 


LAST NAME [ 
FIRST NAME [ 


SSAN [ ] 
AMOUNT [ 


Figure 275. Gutput Formatting 


MESSAGE FORMAT 


FORMAT FMTIN (A10,X6,@21,A9,@11 1%, © se 


MESSAGE ON SCRE ES! 


LAS) NAME [SMITH 
| FIRSi NAME [JOHN 
| SSAN (7122456789) 
| AMOUNT { 4960 | 


rk ONE SUT RaA AERO CaN eed 
A a reat ota ee ne ec rey 


MESSAGE TRANSIT YO 
SMITH___. JOHN__123456785 4950 
all Semmes, arena! ga i, sete umes, came 


AtG XS AS 


MESSAGE AFTER FORMA. STING 
SMITH__004966,__ 1.48759 


1 1 2 
1 4 


Figure 2-6. Inout Farmart ios 


SECTION 3 


ADVANCED GEMCUS FORMATTING 


GENERALS 


In some cases it may be convenient to utitize advanced GEMCOS for- 
matting features to accomplish the following: 


as Minimizing system overhead. 

be Handling variabtertlength fields. 
Ce Transtating data. 

ds Repeating muitirelement variables. 


te te eeD <2EmD ease .2ee =n ee ee eo age Se ae ae GE ae ee ow 


The format writer can minamize Disk I[/0 overhead by dectaring certain 
formats as RESIDENT. This step permits the message format to reside 
in memory rather than on disk. This mechanism ts best employed with 
smalis frequently used formatse The RESIDENT declaratton 1s optionai-s 
howevers since format writers» who are familiar with an applications 
are in the best position to decide where to store message formats. 


ro decilare a message format as rasident»s» the word RESIDENT as decieasrs: 
in brackets fottlowing the format name: 


FORMAT F4& CRESTDENTY CAT» X4s 12> 16). 


ere et ween —_—=- em <abe we -oee eD ED ae ae EE in we GD ei ae ae ee ee a Ee ee ee 


When input fietds are vartable in Length» their message formats may 

be dectared with delimiters to ensure that the program always receives 
fixed-length fields without operator entry of Leading zeroes or tratt=- 
ing blanks. Two types of variabtertlength fields may be accommodated by 
GEMCGS format declarations: 


ae Variable-tength fields which may or may not be terminated 
by a detimiter. These fields are tdentified as 8 or J 
fields. 


b. Variable-ltength fields which are always terminated by a 
delimiter. These fietds are delimited A and I fields. 


B AND J FIELDS. 

when the presence of delimiters is optionat (tabbed fields for example} 
alpha and integer items are dectared as B and J items» respectively » 
and the fietd lengths dectared are the maximum tengths. 


When the standard horizontal tab character (4"05"%) 15 used as a 
deflamaters» 8 and J items are dectared as foltows: 


BlOQs JI 


ferant deitimiter is used» the delimiter code and maximum 
th are dectiared tn parentheses following the 8 or the J. 
Lengtn declared does not tnclude the delimiter code. For 
f the cgetimiter character ts C4"°L1®)» the folfowing woutd 
d for the #10 ftetd: 


fieid ter 


The shorthand redveat part may be used with 8 and J ttems as described 
greviousty. 


GEMCCS timotements these item phrases as follows. In a B10 field, 
eharacters are moved untat either 10 have been moved or until a 
dedamyter character is encountered. When a detamiter character is 
recoygrizeds trailing spaces are inserted to fill the field to 10 


characters. In a J field» teacing zeroes are inserted to fill a 
faedid oan earty by the detimiter character. If the fieaid 

1S compteteatiy Filled» the delimiter code ts not present and the 

OG pore auyances automatacaily to the next tnput field. On output 
megrage 2 and J fields are treated as if they were A and I fields» 


eee eee. 


The foltowing message format descrabes a record consisting of a 
kweuaracter fietd fotlowed by a 4edigit fields a variable-tength 
habbed feeld having a maximum of six characters» two variable-length 
tanbed numeric fields Ceach having a maximum of four digits)» and a 
4~character fietd at the end of the message which 1s ignored: 


FORMAT FS CA3e T4s B60 25J4e X4). 


The message «5 received from the station in the following format 
{note that the fae code 18 not present wath the first numeric field 
mecause the 4-digqgit fretid was completely filled): 


i T 
KY FL 2 eoKZ NP arl@SRSOH? ASNVE 
b b 


After the asplication of the formats the following message 1s 
presented @? : the program: 


X¥ZU2ZEAXYZ 123460567 


DLLGMGitro « AND T FIELDS. 
When delim’ ters are atways present» A and I are used with the detimiter 
codes and isaximum field Lengthss for examptes: 


These item phrases are impiemented by GEMCOS as described for 8B 
and J fietds. The onty difference is that for these fields» the 
delamaters are mandatoryse even when a fietd is ent@rely fitted 


The shorthand repeat part may also be used with these delimiter 
fieids. For exampter af three contiguous vartableriength fretds have 
maximum of 10 characters each and are always delimited by an asterisk 
(*«)3 


3CIC4*™*"%, 10)) 


The following example illustrates how data in a variabtertlength 
field in the tnput message may be sgnored: 


FORMAT F6 CA5e» XC"™W")» 6). 


When apptired to an input message of ABCDEPORSTUVWI23456» this meso 
sage format results tn ABCDE123456 being delivered to the program. 


The translation of program-compatibte fields to terminal operator=- 
compatible fields and vice versa is readily accommodated tin GEMCOS. 
Abbreviations such as SUN» MON» JAN at the terminat can appear to the 


program as 1l» 2» Ol» respectively. fTranstation is accomplished in two 
steps. A function deciaration 1S prepared and referenced in input and 


output message formats. 


The function dectaration identifies the terminat and program equiv= 
atents. These equivalents are dectared in the form of strings» which 
must be no longer than six characters. An externat strings which 
dectares how the fietd appears to the terminals» ts specified firsts; 
then the internal strings which dectares how the fietd appears to 

the programe is specified? 


FUNCTION SEX CTMALE™S*1i%, “"FEMALE™E"2"). 


The tunction dectaration is then referenced as follows in the input 


and output formats: The letter T is declared to indicate translations 


followed by the name of the function» the item phrase describing the 
external strtnge and an integer specifying the tength of the internat 
string: 


TOSEX» Ade 1). 


The following dectarationss for examples, would be used to transiate 
FEB 1975 to 2 19753 


FUNCTION F C8 JAN™27L@ >» "FEBTS 2%» “MARTE 73"). 
FORMAT F110 CTCF eAS ot)» Xio™ “»I4). 


a 


The preceding are examptes of unedited translation specifications. An 
unedited string of Less than six characters in tength is right- 
justified within a 6"-character word with teading nults (€4"00"). As 
tong as ali anternal strings are the same Cength and att external 
strings are the same length» an unedited function specification works 
weli. If strings vary in tencthse howevers the use of unedited function 
specifications can cause confusion. For examples» suppose a function is 
declared as fotlows: 


FUNCTION TEST C™FEMALETI"1L1"%>» "MALE “S"17). 


On outpute an internal string of 1 matches Ll» because GEMCOS looks 
only at the righthand character. Simitarty» on inputs an external 
string of MALE matches FEMALE. 


To avoid this confusions edited transtation soecifications are intro= 
ducede The example just given would be: 


FUNCTION TEST CEXTERNAL? ALPHA» INTERNAL: INTEGER } 
C"FEMALE™S "11> "MALE"S 71"). 


An edited integer string of less than six characters is righte-justified 
with leading zeroes. An edited alpha string of tess than sax charac= 
ters is lLeftrjustified with trailing blanks. Now when GEMCGS searches 
for le it actualty searches for 000001. When GEMCOS searches for 

MALE» tt searches for MALE__. 

REPEATING MULCTI-“ELEMENT VARTABLES. 

Some output messages have a variable number of fieids of repeated datas 
as in tables with cotumns of values. These messages can provide coun™ 
ters which specify the number of elements present in these fields. The 
counters can be used in the repeat parts to dectare a GEMCOS message 
format. 


If a counter fietd its used» the key word VARIABLE must be specified as 
the first declaration in the formats» followed by one of six variables 
(Vi thru V6) which accepts the contents of the counter. <A Location 
specifier may be used to indicate where in the raw message the counter 
fieid resides. The length of the counter tis then specified as an 
integer following the key word FOR: 


VARIABLE V1 FOR 1> 
VARTASLE V3 @416 FOR 5>, 


The variable in the internat message must be tn EBCDIC numerals and 
must not be greater than 255 in value. The use of the location speci- 
fier in the vartable dectaration aiters the position of the poanter 
hithin the internal message» and the format must position the pointer 
to the data if necessary. 


The repeat part in the output message format 1s then constructed by 
usang this VAKIASLE declaration» plus an expression consisting of 
the assigned variable destgnation and a maximum repeat indicator: 


FORMAT Fil CVARTABLE Vl FOR 2» V1 OR 6GAGBe 12). 


Tne number of times the GEMCOS formatter employs the repeat part 
depends on which is lessw ihe variabdte repeat part or the maximum 
repeat part. In the following output messages for examples four 
groups of Ab fieids are processed after the 04 is tLoaded into 
Vargable Vl*s the 67 is processed as a @=digit integer fieid: 


O4ABCDEFI23456GHI JKL 78901267. 


Varzrabte repeat parts may be nested 1f the situation requires. In 
this way a variable number of groups having multireiement variables 
may te dectared in one message format through proper use of paren- 
theses (refer to the 8 1800/8 1700 GEMCOS User's Reference Manuat for 
Syntax details). 


An optional update variable may be used while a multirelement variabte 
iS DeINg processed. In the following cases» for exampter» V2 as the 
variable repeat part and V1 is the update variable: 


ViEV2 OR 6CA1624"0D"™) 


Assume V2 has oeen initiatiy set to 10. Since the maximum repeat part 
1S 6» onty six fietds of the message are processed by the format (leav- 
ing four fietds unprocessed). At the completion of the phrases the 
update varsablere Vl» contains the value 4. Vl could then be used in 
subsequent phrases within the format. Att variabies used in a format 
must be declarea and given an initial value. The update vartable may 
be the same as the variable repeat part. Figure 3°71 is an example of 
variable repeat specifiers used. 


MESSAGE_FORMAT 


FORMAT F12 (VARIABLE V1 FOR 2: 


4"0C'',""+ PART NO”’_.X4, 
“QUANTITY” ,4°OD", X3 
Vi:V1 OR 5(14.X9,12.4°0D")). 


MESSAGE FROM PROGRAM 
04123401567812901216345606 
el ed 


FIELDS OF (4,12 


MESSAGE ON SCREEN 
+PARTNO QUANTITY 


1234 O1 
5678 12 
9012 16 


3456 06 


Figure 3-1. Variabte Repeats 


Printed in U.S.A. 


JGIND ONILLVW4OS 
SODWI9 OOZL 4/008L 4 


1106531 


Printed in U.S.A. 


la—1 BINDER 
1%" BINDER 


=e 


anuar 


1106537 


e 


